home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / game / 2play / BattleDuel.lha / BattleDuel_Install next >
Text File  |  1995-05-16  |  7KB  |  225 lines
  1. ;======================================================================
  2. ;
  3. ; BattleDuel Install Script $VER: Install 1.03 (4.5.95)
  4. ;
  5. ; Copyright © 1995 Jochen Terstiege
  6. ;
  7. ;======================================================================
  8. ;
  9. ;======================================================================
  10. ; language strings
  11. ;======================================================================
  12.  
  13. (if (= @language "deutsch")
  14.     (
  15.         (set #hello "\nWillkommen zur BattleDuel Installation\nund Update\n\n\Version 1.03")
  16.         (set #update (cat "Sie haben BattleDuel auf ihrem System schon installiert. "
  17.                                 "Alle alten Dateien werden gelöscht und die neuen werden installiert."))
  18.         (set #select_destination "Bitte wählen Sie aus, wo das BattleDuel-Verzeichnis erzeugt werden soll")
  19.         (set #destination_help (cat "Wählen Sie eine Partition oder ein Verzeichnis aus. "
  20.                                             "Ein Verzeichnis mit dem Namen 'BattleDuel' wird dort erzeugt."))
  21.         (set #install_to1 "\nBattleDuel nach \"")
  22.         (set #install_to2 "\" installieren?")
  23.         (set #startup "Ergänze user-startup")
  24.         (set #startup_help "Dieser Assign wird von BattleDuel gebraucht")
  25.         (set #have_fun "Viel Spaß mit BattleDuel...")
  26.         (set #which_chipset "Welchen Chipsatz haben Sie?")
  27.         (set #chipset_help (cat "Wenn Sie einen Amiga 4000, A1200 oder eine Grafikkarte "
  28.                                         "besitzen, dann müssen Sie AGA wählen, ansonsten ECS!"))
  29.         (set #want_mwb_icons "Wollen Sie MagicWB Icons installieren?")
  30.         (set #mwb_icons (cat "MagicWB ist ein Set von Icons mit 8 Farben.\n"
  31.                                     "MagicWB ist © by Martin Huttenloher"))
  32.         (set #error_extract (cat "Fehler beim Entpacken der Datei: "))
  33.     )
  34.     (
  35.         (set #hello "\nWelcome to the BattleDuel Installation\nand update\n\n\Version 1.03")
  36.         (set #update (cat "You already have BattleDuel installed on your system. "
  37.                                 "All old files will be deleted and the new ones installed."))
  38.         (set #select_destination "Select the location to install the BattleDuel directory")
  39.         (set #destination_help (cat "Choose a destination partition or directory. "
  40.                                             "A directory called 'BattleDuel' will be created there."))
  41.         (set #install_to1 "\nInstall BattleDuel to \"")
  42.         (set #install_to2 "\" ?")
  43.         (set #startup "Adding assign to user-startup")
  44.         (set #startup_help "This assign is needed by BattleDuel!")
  45.         (set #have_fun "Have fun with BattleDuel...")
  46.         (set #which_chipset "Which Chipset do you have?")
  47.         (set #chipset_help (cat "If you own an Amiga 4000, A1200 or a graphicboard then "
  48.                                         "you must select AGA, otherwise you must select ECS!"))
  49.         (set #want_mwb_icons "Do you want to install MagicWB icons?")
  50.         (set #mwb_icons (cat "MagicWB is a set of nice icons with 8 colors.\n"
  51.                                     "MagicWB is © by Martin Huttenloher"))
  52.         (set #error_extract (cat "Error while extracting from file: "))
  53.     )
  54. )
  55.  
  56. ;======================================================================
  57. ; variables
  58. ;======================================================================
  59.  
  60. (set inputdir    (pathonly @icon))        ; from where we were started
  61. (set bd_drawer "BattleDuel")            ; destination drawer name
  62. (set bd_dest    (getassign "BD"))        ; default destination
  63.  
  64. ;======================================================================
  65. ; welcome
  66. ;======================================================================
  67.  
  68. (message #hello)
  69.  
  70. ;======================================================================
  71. ; already there?
  72. ;======================================================================
  73.  
  74. (if (<> bd_dest "")
  75.     (; update
  76.         (set update true)
  77.         (message #update)
  78.     )
  79.     (; first installation
  80.         (set update false)
  81.         (set bd_dest
  82.             (askdir
  83.                 (prompt #select_destination)
  84.                 (default "Work:")
  85.                 (help #destination_help)
  86.             )
  87.         )
  88.     )
  89. )
  90. (set @default-dest bd_dest)
  91.  
  92. ;======================================================================
  93. ; delete old files
  94. ;======================================================================
  95.  
  96. ;(if (= update true)
  97. ;    (
  98. ;        (set del_pattern "#?")
  99. ;        (foreach bd_dest del_pattern
  100. ;            (delete (tackon bd_dest @each-name))
  101. ;        )
  102. ;    )
  103. ;)
  104.  
  105. ;======================================================================
  106. ; make directory
  107. ;======================================================================
  108.  
  109. (if (= update false)
  110.     (
  111.         (set bd_dest (tackon bd_dest bd_drawer))
  112.         (message (cat #install_to1 bd_dest #install_to2))
  113.         (makedir bd_dest (infos))
  114.         (makeassign "BD" bd_dest)
  115.     )
  116. )
  117.  
  118. ;======================================================================
  119. ; ask for chipset
  120. ;======================================================================
  121.  
  122. (set aga
  123.     (askbool
  124.         (prompt #which_chipset)
  125.         (help #chipset_help)
  126.         (choices "ECS" "AGA")
  127.         (default 1)
  128.     )
  129. )
  130.  
  131. ;======================================================================
  132. ; extract files
  133. ;======================================================================
  134.  
  135. (procedure extract
  136.     (set lx (cat "lx -a -m -q x \"" (tackon inputdir current) ".lha\" * " (tackon "BD:" dir_dest)))
  137.     (working "Installing " current)
  138.     (if (<> (run lx) 0)
  139.         (message #error_extract current)
  140.     )
  141. ) 
  142.  
  143. (complete 0)
  144. (set current "Program")             (set dir_dest "") (extract)
  145. (complete 10)
  146. (if (= update false)
  147. (
  148.     (if (= aga 1)
  149.         ( (set current "Gfx_ECS")        (set dir_dest "Gfx/ECS/") (extract)
  150.           (set current "Landscapes_ECS") (set dir_dest "Landscapes/ECS/") (extract) )
  151.         ( (set current "Gfx_AGA")        (set dir_dest "Gfx/AGA/") (extract)
  152.           (set current "Landscapes_AGA") (set dir_dest "Landscapes/AGA/") (extract) )
  153.     )
  154.     (complete 20)
  155.     (set current "Mods")                (set dir_dest "Mods/") (extract)
  156.     (complete 50)
  157.     (set current "Settings")            (set dir_dest "Settings/") (extract)
  158.     (complete 60)
  159. ) )
  160.  
  161. ;======================================================================
  162. ; copy selected language
  163. ;======================================================================
  164.  
  165. (if (= @language "deutsch")
  166.     ( (set current "Deutsch") (set dir_dest "") (extract) )
  167.     ( (set current "English") (set dir_dest "") (extract) )
  168. )
  169. (complete 70)
  170.  
  171. ;======================================================================
  172. ; add MagicWB icons?
  173. ;======================================================================
  174.  
  175. (set mwb
  176.     (askbool
  177.         (prompt #want_mwb_icons)
  178.         (help #mwb_icons)
  179.         (choices "Yes" "No")
  180.         (default 1)
  181.     )
  182. )
  183.  
  184. (if (= mwb 1)
  185.     ( (set current "MWB_Icons") (set dir_dest "") (extract) )
  186.     ( (set current "Icons") (set dir_dest "") (extract) )
  187. )
  188. (complete 80)
  189.  
  190. ;======================================================================
  191. ; set tooltypes
  192. ;======================================================================
  193.  
  194. (if (= aga 1)
  195.     (tooltype
  196.         (dest "BD:BattleDuel")
  197.         (settooltype "DISPLAY_ID"   "0x0")
  198.         (settooltype "DISPLAY_TYPE" "ECS")
  199.     )
  200.     (tooltype
  201.         (dest "BD:BattleDuel")
  202.         (settooltype "DISPLAY_ID"   "0x0")
  203.         (settooltype "DISPLAY_TYPE" "AGA")
  204.     )
  205. )
  206. (complete 90)
  207.  
  208. ;======================================================================
  209. ; modify user-startup
  210. ;======================================================================
  211.  
  212. (if (= update false)
  213.     (
  214.         (startup "BattleDuel"
  215.             (prompt #startup)
  216.             (command (cat "Assign >NIL: BD: " bd_dest))
  217.             (help #startup_help)
  218.         )
  219.     )
  220. )
  221.  
  222. (complete 100)
  223.  
  224. (exit #have_fun)
  225.